home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Gráficos & Edición / PhotoFlash / PhotoFlash™ Trial / PhotoFlash™ Trial.rsrc / TEXT_2340.txt < prev    next >
Encoding:
Text File  |  1993-08-05  |  1.6 KB  |  51 lines
  1. /it ^imtype def
  2. /dfmt ^dformat def
  3. /comp ^compression def
  4. /cols ^width def /rows ^height def /hres ^hres def /vres ^vres def
  5. /l2 systemdict /languagelevel known {languagelevel 2 ge} {false} ifelse def
  6. % Additional comments here
  7. /image1 {
  8. /BinarySkip {
  9. /x 128 string def
  10. currentfile x readline pop pop
  11. currentfile x readline pop pop
  12. currentfile x readline pop pop
  13. /SkipState 0 def
  14. /Adv0 {13 eq {1} {0} ifelse def} bind def
  15. /Adv1 {37 eq {2} {0} ifelse def} bind def
  16. /Adv2 {37 eq {3} {0} ifelse def} bind def
  17. /Adv3 {13 eq {4} {3} ifelse def} bind def
  18. /StateTable [/Adv0 /Adv1 /Adv2 /Adv3] def
  19. { /SkipState currentfile read { StateTable SkipState get load exec} {pop exit} ifelse
  20.   SkipState 4 eq {exit} if
  21. } loop
  22. } def
  23. /LineSkip {
  24. /x 128 string def
  25. {currentfile x readline {} {pop exit} ifelse
  26. (%%EndBinary) search {exch pop length exch length or 0 ne {} {exit} ifelse} {pop} ifelse
  27. } loop
  28. } def
  29. 1 cols div setlinewidth
  30. 0 0 moveto 0 1 lineto 1 1 lineto 1 0 lineto closepath stroke
  31. 0 0 moveto 1 1 lineto stroke 0 1 moveto 1 0 lineto stroke
  32. /ratio {360 div} def
  33. /Helvetica findfont 13 ratio scalefont setfont
  34. 21 ratio 6 ratio moveto
  35. (This image needs PostScript Level 2) show
  36. dfmt 0 eq {BinarySkip} {LineSkip} ifelse
  37. } bind def
  38. /image2 {
  39. /x 128 string def
  40. currentfile x readline pop pop
  41. currentfile x readline pop pop
  42. /Data currentfile dfmt 0 ne
  43. {[/ASCIIHexDecode /ASCII85Decode] dfmt 1 sub get filter} if
  44. comp 1 eq {/DCTDecode filter} if
  45. def
  46. [/DeviceGray /DeviceRGB /DeviceCMYK /DeviceGray] it get setcolorspace
  47. 7 dict begin
  48. /ImageType 1 def /Width cols def /Height rows def
  49. /ImageMatrix [cols 0 0 rows neg 0 rows] def
  50. /DataSource Data def /BitsPerComponent ^bits def
  51.